home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d16
/
oriel.arc
/
HYPER.ORL
< prev
next >
Wrap
Text File
|
1991-07-31
|
4KB
|
127 lines
{---------------------------------------------------------------}
{ HYPER.ORL }
{---------------------------------------------------------------}
{Set Environment}
SetWindow(MAXIMIZE)
UseBackground(TRANSPARENT,255,255,255)
UseBrush(Solid,192,192,192)
UseCoordinates(METRIC)
DRAW_BOAT:
DrawBackground
DrawBitmap(2,0,"BOAT1.BMP")
DrawRoundRectangle(130,18,160,26,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(136,19,"A")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(139,19,"bout...")
DrawRoundRectangle(5,102,25,110,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(7,103,"E")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(10,103,"xit")
DrawRoundRectangle(5,111,65,119,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(7,112,"M")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(10,112,"echanical Systems")
DrawRoundRectangle(5,120,82,128,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(7,121,"D")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(10,121,"eck and Cockpit Framing")
DrawRoundRectangle(5,129,86,137,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(7,130,"H")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(10,130,"ull Framing and Planking")
UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(2,138,"⌐1987 by Stephen L. Davis, courtesy of WoodenBoat Magazine")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
SetMouse(130,18,160,26,ABOUT,Temp,Temp,
5,102,25,110,END_IT,Temp,Temp,
5,111,65,119,DRAW_MECHANICALS,Temp,Temp,
5,120,82,128,DRAW_COCKPIT,Temp,Temp,
5,129,86,137,DRAW_FRAME,Temp,Temp)
SetKeyboard("a",ABOUT,"A",ABOUT,
"e",END_IT,"E",END_IT,
"m",DRAW_MECHANICALS,"M",DRAW_MECHANICALS,
"d",DRAW_COCKPIT,"D",DRAW_COCKPIT,
"h",DRAW_FRAME,"H",DRAW_FRAME)
WAIT_FOR_INPUT:
WaitInput()
ABOUT:
MessageBox(OK,1,INFORMATION,"IRENE
Designed by John L. Hacker
Length: 28 feet
Beam: 6 feet 8 inches
Draft: 2 feet
Speed: 22 mph","About...",Button_mashed)
Goto WAIT_FOR_INPUT
DRAW_MECHANICALS:
DrawBackground
DrawBitmap(5,0,"MECH1.BMP")
DrawRoundRectangle(158,120,178,130,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(162,122,"B")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(165,122,"ack")
SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(110,138,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
Goto WAIT_FOR_INPUT
DRAW_COCKPIT:
DrawBackground
DrawBitmap(5,0,"COCKPIT1.BMP")
DrawRoundRectangle(158,120,178,130,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(162,122,"B")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(165,122,"ack")
SetMouse(158,120,178,130,DRAW_BOAT,Temp,Temp)
SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(115,137,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
Goto WAIT_FOR_INPUT
DRAW_FRAME:
DrawBackground
DrawBitmap(5,0,"FRAME1.BMP")
DrawRoundRectangle(28,120,48,130,3,3)
UseFont("System",1,3,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
DrawText(32,122,"B")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(35,122,"ack")
SetMouse(28,120,48,130,DRAW_BOAT,Temp,Temp)
SetKeyboard("b",DRAW_BOAT,"B",DRAW_BOAT)
UseFont("Helv",0,1,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
DrawText(2,138,"⌐1987 Stephen L. Davis, courtesy WoodenBoat Magazine")
UseFont("System",1,3,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
Goto WAIT_FOR_INPUT
END_IT:
End